;;; (PV_BrickWall buffer wipe)

;;; `wipe' is a unit signal, from -1 to 0 the UGen acts as a low-pass
;;; filter, from 0 to 1 it acts as a high pass filter.

(define b (buffer-alloc (current-server) 2048 1 #t))

(IFFT.ar (PV_BrickWall.kr (FFT.kr (buffer-id b) (WhiteNoise.ar 0.2))
			  (MouseX.kr -1 1)))

(buffer-free b)

